home *** CD-ROM | disk | FTP | other *** search
- @ECHO OFF
- PATH=C:\;C:\BAT;C:\DOS;C:\UTIL;I:\PCB;C:\LANTASTI
- C:
- EEMRAM /S
- DATECHEK
- IF ERRORLEVEL 6 GOTO SAT
- IF ERRORLEVEL 5 GOTO FRI
- IF ERRORLEVEL 4 GOTO THU
- IF ERRORLEVEL 3 GOTO WED
- IF ERRORLEVEL 2 GOTO TUE
- IF ERRORLEVEL 1 GOTO MON
- IF ERRORLEVEL 0 GOTO SUN
- ECHO I GIVE UP
- ECHO I DON'T KNOW WHAT DAY IT IS
- GOTO THATSAL
- :SUN
- ECHO TODAY IS SUNDAY
- IF EXIST MON DEL MON
- IF EXIST TUE DEL TUE
- IF EXIST WED DEL WED
- IF EXIST THU DEL THU
- IF EXIST FRI DEL FRI
- IF EXIST SAT DEL SAT
- IF EXIST SUN GOTO THATSAL
- ECHO > SUN
- GOTO COMPRESS
- :MON
- ECHO TODAY IS MONDAY
- IF EXIST TUE DEL TUE
- IF EXIST WED DEL WED
- IF EXIST THU DEL THU
- IF EXIST FRI DEL FRI
- IF EXIST SAT DEL SAT
- IF EXIST SUN DEL SUN
- IF EXIST MON GOTO THATSAL
- ECHO > MON
- GOTO COMPRESS
- :TUE
- ECHO TODAY IS TUESDAY
- IF EXIST WED DEL WED
- IF EXIST THU DEL THU
- IF EXIST FRI DEL FRI
- IF EXIST SAT DEL SAT
- IF EXIST SUN DEL SUN
- IF EXIST MON DEL MON
- IF EXIST TUE GOTO THATSAL
- ECHO > TUE
- GOTO COMPRESS
- :WED
- ECHO TODAY IS WEDNESDAY
- IF EXIST THU DEL THU
- IF EXIST FRI DEL FRI
- IF EXIST SAT DEL SAT
- IF EXIST SUN DEL SUN
- IF EXIST MON DEL MON
- IF EXIST TUE DEL TUE
- IF EXIST WED GOTO THATSAL
- ECHO > WED
- GOTO COMPRESS
- :THU
- ECHO TODAY IS THURSDAY
- IF EXIST FRI DEL FRI
- IF EXIST SAT DEL SAT
- IF EXIST SUN DEL SUN
- IF EXIST MON DEL MON
- IF EXIST TUE DEL TUE
- IF EXIST WED DEL WED
- IF EXIST THU GOTO THATSAL
- ECHO > THU
- GOTO COMPRESS
- :FRI
- ECHO TODAY IS FRIDAY
- IF EXIST SAT DEL SAT
- IF EXIST SUN DEL SUN
- IF EXIST MON DEL MON
- IF EXIST TUE DEL TUE
- IF EXIST WED DEL WED
- IF EXIST THU DEL THU
- IF EXIST FRI GOTO THATSAL
- ECHO > FRI
- GOTO COMPRESS
- :SAT
- ECHO TODAY IS SATURDAY
- IF EXIST SUN DEL SUN
- IF EXIST MON DEL MON
- IF EXIST TUE DEL TUE
- IF EXIST WED DEL WED
- IF EXIST THU DEL THU
- IF EXIST FRI DEL FRI
- IF EXIST SAT GOTO THATSAL
- ECHO > SAT
- :COMPRESS
- vopt c:
- vopt d:
- vopt e:
- vopt f:
- vopt g:
- vopt h:
- vopt I:
- vopt J:
- :THATSAL
- c:
- echo.
- :SKIPIT
- C:
- CD \
- CACHE-EM 512 /T
- PROMPT $P$G
- SET PCB=/BIO
- SET DSZLOG=T:\DOORS14\$door.log
- SET DSZPORT=3
- SET DOORPCH=PCB
- SET LIB=T:\DOORS14\
- SET NDE=000000000000000000
- SET DR=ZZZZZZZZZZZZZZZZZZ
- SET EXE=ZZZZZZZZZZZZZZZZZZ
- SET CFG=ZZZZZZZZZZZZZZZZZZ
- CD \LANTASTI
- LANBIOS IRQ=5 NAMES=5 ADDRESS=6 VERBOSE
- SHARE
- REDIR BBS
- SERVER
- :NOLAN
- SUBST M: C:\
- SUBST N: D:\
- SUBST O: E:\
- SUBST P: F:\
- SUBST Q: G:\
- SUBST R: H:\
- SUBST S: I:\
- SUBST T: J:\
- SUBST V: I:\
- SUBST W: J:\
- C:
- CD \
- MODE MONO
- TASKVIEW /M:276 /D:SCR:CGA;ICA /P:4 /C:3 /PB BOARDUP